home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / ddevb / dde_vbfn.bas < prev    next >
BASIC Source File  |  1995-05-09  |  6KB  |  200 lines
  1. DefInt A-Z
  2.  
  3. Function DecodeError (errcode As Integer) As String
  4. Select Case errcode
  5.     Case 3
  6.     DecodeError = "Return without GoSub"
  7.     Case 5
  8.     DecodeError = "Illegal function call"
  9.     Case 6
  10.     DecodeError = "Overflow"
  11.     Case 7
  12.     DecodeError = "Out of memory"
  13.     Case 9
  14.     DecodeError = "Subscript out of range"
  15.     Case 10
  16.     DecodeError = "Duplicate definition"
  17.     Case 11
  18.     DecodeError = "Division by zero"
  19.     Case 13
  20.     DecodeError = "Type mismatch"
  21.     Case 14
  22.     DecodeError = "Out of string space"
  23.     Case 16
  24.     DecodeError = "String formula too complex"
  25.     Case 17
  26.     DecodeError = "Can't continue"
  27.     Case 19
  28.     DecodeError = "No Resume"
  29.     Case 20
  30.     DecodeError = "Resume without error"
  31.     Case 28
  32.     DecodeError = "Out of stack space"
  33.     Case 35
  34.     DecodeError = "Sub or Function not defined"
  35.     Case 48
  36.     DecodeError = "Error in loading DLL"
  37.     Case 51
  38.     DecodeError = "Internal error"
  39.     Case 52
  40.     DecodeError = "Bad file name or number"
  41.     Case 53
  42.     DecodeError = "File Not found"
  43.     Case 54
  44.     DecodeError = "Bad file mode"
  45.     Case 55
  46.     DecodeError = "File already open"
  47.     Case 57
  48.     DecodeError = "Device I/O error"
  49.     Case 58
  50.     DecodeError = "File already exists"
  51.     Case 59
  52.     DecodeError = "Bad record length"
  53.     Case 61
  54.     DecodeError = "Disk full"
  55.     Case 62
  56.     DecodeError = "Input past end of file"
  57.     Case 63
  58.     DecodeError = "Bad record number"
  59.     Case 64
  60.     DecodeError = "Bad file name"
  61.     Case 67
  62.     DecodeError = "Too many files"
  63.     Case 68
  64.     DecodeError = "Device unavailable"
  65.     Case 70
  66.     DecodeError = "Permission denied"
  67.     Case 71
  68.     DecodeError = "Disk Not ready"
  69.     Case 74
  70.     DecodeError = "Can't rename with different drive"
  71.     Case 75
  72.     DecodeError = "Path/File access error"
  73.     Case 76
  74.     DecodeError = "Path Not found"
  75.     Case 260
  76.     DecodeError = "No timer available"
  77.     Case 280
  78.     DecodeError = "DDE channel not fully closed; awaiting response from foreign application"
  79.     Case 281
  80.     DecodeError = "No More DDE channels"
  81.     Case 282
  82.     DecodeError = "No foreign application responded to a DDE initiate"
  83.     Case 283
  84.     DecodeError = "Multiple applications responded to a DDE initiate"
  85.     Case 284
  86.     DecodeError = "DDE channel locked"
  87.     Case 285
  88.     DecodeError = "Foreign application won't perform DDE method or operator"
  89.     Case 286
  90.     DecodeError = "Timeout while waiting for DDE response"
  91.     Case 287
  92.     DecodeError = "User pressed Alt Key during DDE operation"
  93.     Case 288
  94.     DecodeError = "Destination is busy"
  95.     Case 289
  96.     DecodeError = "Data not provided in DDE operation"
  97.     Case 290
  98.     DecodeError = "Data in wrong format"
  99.     Case 291
  100.     DecodeError = "Foreign application quit"
  101.     Case 292
  102.     DecodeError = "DDE conversation closed or changed"
  103.     Case 293
  104.     DecodeError = "DDE method invoked with no channel open"
  105.     Case 294
  106.     DecodeError = "Invalid DDE Link format"
  107.     Case 295
  108.     DecodeError = "Message queue filled; DDE message lost"
  109.     Case 296
  110.     DecodeError = "PasteLink already performed on this control"
  111.     Case 297
  112.     DecodeError = "Can't set LinkMode; Invalid LinkTopic"
  113.     Case 320
  114.     DecodeError = "Can't use character device names in filenames: 'item'"
  115.     Case 321
  116.     DecodeError = "Invalid file format"
  117.     Case 340
  118.     DecodeError = "Control array element 'item' does not exist"
  119.     Case 341
  120.     DecodeError = "Invalid object array index"
  121.     Case 342
  122.     DecodeError = "Not enough room to allocate control array 'item'"
  123.     Case 343
  124.     DecodeError = "Object not an array"
  125.     Case 344
  126.     DecodeError = "Must specify index for object array"
  127.     Case 345
  128.     DecodeError = "Reached limit:  cannot create any more controls for this form"
  129.     Case 360
  130.     DecodeError = "Object already loaded"
  131.     Case 361
  132.     DecodeError = "Can't load or unload this object"
  133.     Case 362
  134.     DecodeError = "Can't unload controls created at design time"
  135.     Case 363
  136.     DecodeError = "Custom control 'item' not found"
  137.     Case 364
  138.     DecodeError = "Object was unloaded"
  139.     Case 365
  140.     DecodeError = "Unable to unload within this context"
  141.     Case 380
  142.     DecodeError = "Invalid property value"
  143.     Case 381
  144.     DecodeError = "Invalid property array index"
  145.     Case 382
  146.     DecodeError = "'item' property can't be set at run time"
  147.     Case 383
  148.     DecodeError = "'item' property is read-only"
  149.     Case 384
  150.     DecodeError = "'item' property can't be modified when form is minimized or maximized"
  151.     Case 385
  152.     DecodeError = "Must specify index when using property array"
  153.     Case 386
  154.     DecodeError = "'item' property not available at run time"
  155.     Case 387
  156.     DecodeError = "'item' property can't be set on this control"
  157.     Case 388
  158.     DecodeError = "Can't set Visible property from a parent menu"
  159.     Case 400
  160.     DecodeError = "Form already displayed; can't show form modally"
  161.     Case 401
  162.     DecodeError = "Can't show non-modal form when a modal form is being displayed"
  163.     Case 402
  164.     DecodeError = "Must close or hide topmost modal form first"
  165.     Case 420
  166.     DecodeError = "Invalid object reference"
  167.     Case 421
  168.     DecodeError = "Method not applicable for this object"
  169.     Case 422
  170.     DecodeError = "Property 'item' not found"
  171.     Case 423
  172.     DecodeError = "Property or control 'item' not found"
  173.     Case 424
  174.     DecodeError = "Object required"
  175.     Case 425
  176.     DecodeError = "Invalid object use"
  177.     Case 430
  178.     DecodeError = "No currently active control"
  179.     Case 431
  180.     DecodeError = "No currently active form"
  181.     Case 460
  182.     DecodeError = "Invalid Clipboard format"
  183.     Case 461
  184.     DecodeError = "Specified format does not match format of data"
  185.     Case 480
  186.     DecodeError = "Can't create AutoRedraw image"
  187.     Case 481
  188.     DecodeError = "Invalid picture"
  189.     Case 482
  190.     DecodeError = "Printer error"
  191.     Case 520
  192.     DecodeError = "Can't empty Clipboard"
  193.     Case 521
  194.     DecodeError = "Can't open Clipboard"
  195.     Case Else
  196.     DecodeError = "Not defined"
  197. End Select
  198. End Function
  199.  
  200.